unit Class_Element;

interface
uses
  System.SysUtils,System.Classes,UniEngine;

type
  TElement = class(TUniEngine)
  private
    FElement:string;
    FProprty:TCollection;
  public
    destructor Destroy; override;
  published
    property ELEMENT:string       read FElement write FElement;
    property PROPRTY:TCollection  read FProprty write FProprty;
  end;

  TProprty = class(TUniEngine)
  private
    FProprty:string;
    FDataTyp:string;
  public
    constructor Create;
    destructor Destroy; override;
  published
    property  PROPRTY:string  read FProprty write FProprty;
    property  DATATYP:string read FDataTyp write FDataTyp;
  end;

implementation

uses
  Class_KzUtils;

{ TElement }

destructor TElement.Destroy;
begin
  if FProprty<>nil then TKzUtils.TryFreeAndNil(FProprty);

  inherited;
end;

{ TProprty }

constructor TProprty.Create;
begin
  DataTyp:='string';
end;

destructor TProprty.Destroy;
begin

  inherited;
end;

end.
